home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / SECLN.LSP < prev    next >
Text File  |  1991-02-28  |  2KB  |  69 lines
  1. ;DRAWS A "PLINE" SECTION LINE & INSERTS ARROWS IN THE DIRECTION 
  2. ;THE USER CHOOSES. THE ARROWS WILL BE PERPENDICULAR TO THE SECTION LINE.
  3. ;IT ALSO LOOKS AT DIMSCALE TO FIND THE INSERTION SCALE FACTOR.
  4. ;
  5. ;AN ARROW DRAWING CALLED SECARROW.DWG MUST BE AVAILIBLE FOR INSERTION.
  6. ;IT SHOULD BE DRAWN 1 UNIT WIDE, POINTING TOWARDS 0 DEGREES,
  7. ;WITH THE INSERTION BASE BEING THE END, NOT THE POINT ! 
  8. ; 
  9. (defun C:SECLN ()
  10. ;
  11. (SETQ BM (GETVAR "BLIPMODE"))
  12. (SETQ CME (GETVAR "CMDECHO"))        ;SAVE & SET SOME VARIABLES
  13. (SETVAR "BLIPMODE" 0)
  14. (SETVAR "CMDECHO" 0)
  15. (SETQ SM (GETVAR "SNAPMODE"))
  16. (SETQ SA (GETVAR "SNAPANG"))
  17. ;
  18. (setq pt1 (GETPOINT "\nDRAW SECTION LINE...\n"))
  19.  
  20. (COMMAND "PLINE" pt1 "W" ".015" "" ) ;CHANGE (.015) IF YOU WANT A
  21.                                      ; DIFFERENT LINE WIDTH
  22.                                      ;YOU ALSO MUST CHANGE SECARROW.DWG
  23. (while (setq PLINEV (getpoint (GETVAR "LASTPOINT")))
  24. (command PLINEV)
  25. )
  26. (command "")
  27. (SETVAR "OSMODE" 1)
  28. (SETQ ORT(GETVAR "ORTHOMODE"))
  29. (SETVAR "ORTHOMODE" 1)
  30. ;
  31. (setq posa1 (GETPOINT"\nPostion of first arrow:\n"))
  32. (SETQ SPOSA1(OSNAP POSA1 "MID"))
  33. (SETQ A1(ANGLE posa1 SPOSA1))
  34. (SETQ A1A(ANGTOS A1 0 5))
  35. (command "snap" "r" "0,0" (READ A1A))
  36. (COMMAND "SNAP" "OFF")
  37. ;
  38. (setq dira1 (GETPOINT posa1"\n\nDirection of first arrow:"))
  39. (SETQ A1D(ANGLE POSA1 DIRA1))
  40. ;
  41. (setq posa2 (GETPOINT"\nPostion of second arrow:\n"))
  42. (SETQ SPOSA2(OSNAP POSA2 "MID"))
  43. (SETQ A2(ANGLE posa2 SPOSA2))
  44. (SETQ A2A(ANGTOS A2 0 5))
  45. (command "snap" "r" "0,0" (READ A2A))
  46. (COMMAND "SNAP" "OFF")
  47. ;
  48. (setq dira2 (GETPOINT posa2"\nDirection of second arrow:\n"))
  49. (SETQ A2D(ANGLE POSA2 DIRA2))
  50. (SETVAR "OSMODE" 0)
  51. ;
  52. (COMMAND "INSERT""SECARROW"posa1(GETVAR"DIMSCALE")""(ANGTOS A1D 0 4))
  53. ;                    |
  54. ;SECARROW.DWG MUST BE IN YOUR  DRAWING OR BLOCK DIRECTORY !!!! 
  55. ;                    |
  56. (COMMAND "INSERT""SECARROW"posa2(GETVAR"DIMSCALE")""(ANGTOS A2D 0 4))
  57. (COMMAND "SNAP" "R" "0,0" "0")
  58. ;
  59. (SETVAR "SNAPMODE" SM)
  60. (SETVAR "SNAPANG" SA)
  61. (SETVAR "ORTHOMODE" ORT)          ;RESET SOME VARIAN
  62. (SETVAR "BLIPMODE" BM)
  63. (SETVAR "CMDECHO" CME)
  64. (princ)
  65. (prompt "\nPROGRAM COMPLETED....")
  66. (princ)
  67. )
  68.  
  69.